`timescale 1 ns / 100 ps

module BCDToSeg_tb;

	reg  [3:0] bcd_in;
	wire [7:0] seg_out;

	BCDToSeg dut (
		bcd_in,
		seg_out
	);

	initial begin
		$display("BCD_in\Seg_out");
		$monitor("%4b\t%8b",  bcd_in, seg_out);
		for (bcd_in = 0; bcd_in < 10; bcd_in = bcd_in + 1) begin
			#10;
		end
		$stop;
	end

endmodule
